home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / wb / BWS_Scalos.lha / BWS_Scalos / Scalos_Rename / Install next >
Text File  |  2002-05-21  |  3KB  |  172 lines
  1. ; Script created by Bruce Steers bsteers@ukonline.co.uk
  2.  
  3. (set ver "$VER: Install_Scalos_Rename 40.9 (06.12.2001)")
  4.                      (set verN "40.9")
  5.  
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7.  
  8. ; getversion of existing module
  9. (set vernum (getversion "Scalos:modules/rename.module"))
  10. (set oldverV (/ vernum 65536))
  11. (set oldverR (- vernum (* ver 65536) ) )
  12. (set oldver (cat oldverV"."oldverR))
  13.  
  14. (set srcdir (pathonly @icon))
  15.  
  16. (set origmod  "Scalos:modules/V39_Rename.module")
  17. (set newmod  "Scalos:modules/Rename.module")
  18.  
  19. (welcome "\nWelcome to the Scalos_Rename "verN" Install Script\nThis will Update your Rename.module")
  20.  
  21. (set @default-dest "Scalos:modules")
  22.  
  23. (complete 20)
  24.  
  25. (if (exists origmod (noreq))
  26.  ((set instype
  27.    (askbool
  28.    (prompt "\n\nwould you like to install the New Rename.module\n\nOr Revert back to the original one?")
  29.    (choices "Install New" "Revert to Original")
  30.    (help @default-askbool)
  31.    )
  32.  ))
  33. (set instype 1)
  34. )
  35.  
  36. (if (= instype 1)
  37.  (
  38.   (if (= oldverV 39)
  39.     (if
  40.       (askbool
  41.       (prompt "\n\nBackUp Original V39 Rename.module\n\nRename your Existing Rename.module\nas V39_Rename.module")
  42.       (help @default-askbool)
  43.       )
  44.       (
  45.         (if (exists origmod (noreq))
  46.         (delete origmod (optional "force") (infos))
  47.         )
  48.       (rename newmod origmod)
  49.       )
  50.     )
  51.   )
  52.  
  53.  
  54.   (copyfiles
  55.   (source "Rename.module")
  56.   (dest @default-dest)
  57.   (infos)
  58.   )
  59.  
  60. (set prefsdest "Scalos:Prefs/Modules")
  61.  
  62.   (if (not (exists prefsdest) )
  63.    (
  64.    (makedir prefsdest (infos))
  65.    )
  66.    (
  67.    (set oldpref (tackon prefsdest "Rename.module.prefs"))
  68.     (if (exists oldpref)
  69.      (delete oldpref
  70.      (optional "force")
  71.      (infos)
  72.      )
  73.     )
  74.    )
  75.   )
  76.  
  77.   (copyfiles
  78.   (source "Rename.prefs")
  79.   (dest prefsdest)
  80.   (infos)
  81.   )
  82.  
  83. (set ofgpref "ENVARC:Scalos/Rename.prefs")
  84. (set cfgpref "ENVARC:Scalos/Rename.ini")
  85.  
  86.   (if (exists ofgpref)
  87.    (if (exists cfgpref)
  88.  
  89.     (delete ofgpref
  90.     (optional "force")
  91.     )
  92.  
  93.     (rename ofgpref cfgpref)
  94.    )
  95.   )
  96.  
  97.  (complete 50)
  98.  
  99.   (copyfiles
  100.   (source "Scalos_Rename.guide")
  101.   (dest "Scalos:Docs")
  102.   (prompt "Install Scalos_Rename.guide ?")
  103.   (help @copyfiles-help)
  104.   (confirm)
  105.   (infos)
  106.   )
  107.  
  108.  (complete 60)
  109.  
  110.   (copylib
  111.   (source "/libs/BetterString.mcc")
  112.   (dest "Mui:libs/mui")
  113.   (prompt "Install BetterString.mcc ?")
  114.   (help @copylib-help)
  115.   (confirm)
  116.   (infos)
  117.   )
  118.  
  119.  (complete 70)
  120.  
  121.   (copylib
  122.   (source "/libs/BetterString.mcp")
  123.   (dest "Mui:Libs/mui")
  124.   (prompt "Install BetterString.mcp ?")
  125.   (help @copylib-help)
  126.   (confirm)
  127.   (infos)
  128.   )
  129.  
  130.  (complete 80)
  131.  
  132.   (copylib
  133.   (source "/libs/amigaini.library")
  134.   (dest "libs:")
  135.   (prompt "Install amigaini.library ?")
  136.   (help @copylib-help)
  137.   (confirm)
  138.   (infos)
  139.   )
  140.  
  141.  (complete 90)
  142.  
  143.  
  144.  (set @default-dest "Scalos:")
  145.  (complete 100)
  146.  (exit  "\n\n" @app-name " Installaton is now over.\n\nPlease Read the Docs to understand how to use Scalos_Rename "verN)
  147.  )
  148.  
  149.  
  150.  (
  151.  
  152.  (if (exists newmod)
  153.  (delete newmod (optional "force") (infos))
  154.  )
  155.  
  156.  (rename origmod newmod)
  157.  
  158.  (set guide "Scalos:Docs/Scalos_Rename.guide")
  159.  
  160.   (if (exists guide)
  161.    (delete guide (optional "force") (infos))
  162.   )
  163.  
  164.  (set @default-dest "Scalos:")
  165.  
  166.  (complete 100)
  167.  
  168.  (exit  "\n\n" @app-name " has been restored back to version 39.x")
  169.  )
  170. )
  171.  
  172.